858 IFY<.4THEN688
668 FRINT“HE5SUNG TX FREGUENZ = ";Y;“ HHZ"
678 X(éJ=INT(288*Y+.5>/288
688 PRINT"EINGRBE NDMINAL TX FREDUENZ: ";
698 PRINTXt6)I
788 PRINT"U”CHR5(13)TnE(29)
718 INPUTX(6>
728 5(L}=X<6)
738 PRINT
748 PRINT"SIHPLEX DDER DUPLEX (5/D): 'Q
758 PRINT" S"}IPRINT“H"CHR$(13)THB(38}i:INPUTD$
768 IFD$¤"D“THEN798
778 IFD$¤"S"THEN848
788 GGTU?48
798 PRINT
.888 PRINT"DUPLEX ABBTRND (RX—TX)IN MHZ : 'Q
818 PRINTX(4>£IPRINT"H"CHR$(13}Té8(38};:INPUTX(4)
828 X<1)=X(éJ+X(4)
838 FtL)¤X(1):GGTG 878
S48 X<*l>=8:><(1)=X(é»>
858 F<L>=X(é)
868 R(L>=X(6>
878 R=81IGD5U8 9888
888 P<L)=Y
898 IF P(L)>.889 THEN 958
988 PRINT
918 PRINT
928 PRINT
938 Y$=" K E I N E L E I 5 T U N G "
948 R=87IGOSUB 9888
958 A<L)=INT(YJ
968 R=36:GD5UB 9888
978 PRINT:m(L)=Y
988 PRINT“8ENDERSTR8H ",Y;“AHP“
998 HDLD 1888 ‘
1888 IF L¤K THEN GGTD 1828
1818 NEXT L
1828 PRINT
1838 INPUT“5—TDN HDDULHTIDNEN Y/N"jT$
1848 IF T$¤"Y" THEN GDTU 1878
1858 IF T$="N" THEN GOTO 1388
1868 GOTO 1838
1878 PRINT
1888 INPUT"ANZAHL 5-TEN HDDULATIDNEN"jH
1898 GDHUB 3128
1188 T1=2:Y¤8:R=281GD5U89888
1118 PRINT
1128 Y$¤“Z":R=19:GUSUB9888
1138 FDR L=1 TD M
1188 Y=8:R=17:GDSU8 9888
1158 R=43:GO8UE 9888
1168 Y$="88888888":R=33tGOSU8 9888
1178 PRINT
1188 Y$¤"NUMMER EINSTELLEN "
1198 R¤87:GD5UB9888
1288 Y1=4:Y=1:R=28:GU5UB9888
1218 HEJLD BBB: Y1=4:Y=E:R=28:GDSUB?BG8
1228 R=34:GOSUB9888
1288 IF Y$<>" “THEN GDTD1278
1248 Y$="RUF AU5LDESEN"
1258 R=871GDSUE 9888 -
1268 RMBQJGDSIJE 9888
1278 PRINT
1288 Y$¤RIGHT${Y$,&)
1298 PRINT"DHCDDIERTE NUHHER "JYS
1388 N$<LJ=Y$
1318 NEXT L